How to add text to an existent attribute?

Greetings,
I am trying to add text into any object attribute that already contains text.
{
Module m = current
Object o

for o in m do {

string s = o."Object Text" ""
o."Object Text" = s " I want to add this text, but I don't want to lose the formating of the attribute" ""

}
}

I don't want to lose any formating in the Object Text (BOLD, ITALIC, UNDERLINE, ETC.) and I need to add the new information at the end of the text.

I tried using replaceRichText but the effor was null.

Thanks
SystemAdmin - Wed May 27 11:43:19 EDT 2009

Re: How to add text to an existent attribute?
Ron_Lewis - Wed May 27 11:57:36 EDT 2009

Object o = current
string s=richTextWithOle(o."Object Text")
o."Object Text"= richText(s) " I want to add this text, but I don't want to lose the formating of the attribute"

Re: How to add text to an existent attribute?
llandale - Wed May 27 14:10:46 EDT 2009

Object o = current
string s=richTextWithOle(o."Object Text")
o."Object Text"= richText(s) " I want to add this text, but I don't want to lose the formating of the attribute"